home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / rocks2.pov < prev    next >
Encoding:
Text File  |  1992-08-08  |  2.7 KB  |  134 lines
  1. // Persistence of Vision Raytracer Version 1.0
  2. // Requires PLASMA.GIF
  3. // A pearly sphere hovers between the points of two fractured surfaces.
  4. //
  5. // By Dan Farmer
  6. /*
  7.     The rock was generated with FRGEN v1.1 from file sphere.fr
  8.     Options in effect: -sx0.1 -sy0.1 -sz0.1 -bx0 -by0 -bz0 -r2 -e3432
  9. */
  10.  
  11. #include "include.inc"
  12.  
  13. camera {
  14.    location <0  0  -4>
  15.    direction <0.0 0.0  1.0>
  16.    up  <0.0  1.0  0.0>
  17.    right <1.33333 0.0 0.0>
  18.    look_at <0 0 0>
  19. }
  20.  
  21. object {
  22.    light_source { <15 0.5 -5>
  23.    colour red 1 green 0.3
  24.    }
  25. }
  26. object {
  27.    light_source { <-10 -0.5 -45>
  28.    colour red 0.5 green 0.7 blue 1
  29.    }
  30. }
  31.  
  32.  
  33. /*** Stand-in for the core sample
  34. #declare Core = composite
  35.     object {
  36.         intersection { Y_Disk translate <0 -1 0> }
  37.         texture { color White }
  38.     }
  39. }
  40. **/
  41.  
  42.  
  43. // Core Sample
  44. #declare Ruffness = 1
  45. #declare Column_Texture = texture {
  46.     0.015
  47.     ambient 0.15
  48.     diffuse 0.6
  49.     reflection 0.25
  50.     brilliance 5
  51.     color Gray95
  52. }
  53.  
  54. #declare Core1 = composite {
  55.  
  56.     object {
  57.         height_field { gif "plasma.gif" }
  58.         translate <-0.5 0 -0.5>
  59.         scale <6 1 6>
  60.         clipped_by {
  61.             quadric { Cylinder_Y }
  62.         }
  63.         texture { Column_Texture }
  64.         scale <1 Ruffness 1>
  65.     }
  66.  
  67.     object {
  68.         quadric { Cylinder_Y }
  69.         clipped_by {
  70.             height_field { gif "plasma.gif"
  71.             translate <-0.5 0 -0.5>
  72.             scale <6 1 6>
  73.             inverse
  74.             }
  75.         }
  76.         texture { Column_Texture }
  77.         scale <1 Ruffness 1>
  78.     }
  79. }
  80.  
  81.  
  82. #declare Core2 = composite {
  83.  
  84.     object {
  85.         height_field { gif "plasma.gif" }
  86.         translate <-0.5 0 -0.5>
  87.         rotate <180 0 0>
  88.         scale <6 1 6>
  89.         clipped_by {
  90.             quadric { Cylinder_Y }
  91.         }
  92.         texture { Column_Texture }
  93.         scale <1 Ruffness 1>
  94.     }
  95.  
  96.     object {
  97.         quadric { Cylinder_Y
  98.         }
  99.         clipped_by {
  100.             height_field { gif "plasma.gif"
  101.             translate <-0.5 0 -0.5>
  102.             rotate <180 0 0>
  103.             scale <6 1 6>
  104.             inverse
  105.             }
  106.         }
  107.         texture { Column_Texture }
  108.         scale <1 Ruffness 1>
  109.     }
  110. }
  111.  
  112.  
  113. //object { sphere { <0 0 0> 100000 } texture { 0.025 color Gray25 ambient 1 } }
  114. //object { plane { <0 1 0> -9 } texture { 0.025 color Gray25 reflection 0.5 }}
  115. composite { Core1
  116.     scale <2 2 2>
  117.     translate <0 -2 0>
  118. }
  119. composite { Core2
  120.     scale <2 2 2>
  121.     rotate <0 180 0>
  122.     translate <0 2 0>
  123. }
  124.  
  125. object {
  126.     sphere {<0 0 0> 0.20 }
  127.     texture {
  128.         Metal
  129.         color White
  130.         reflection 0.85
  131.     }
  132.     translate <0 0 -1.5>
  133. }
  134.